home *** CD-ROM | disk | FTP | other *** search
/ Let's Discover Tennessee! / Let's Discover Tennessee!.iso / pc / FILES / GEO.dxr / 00522_dimensionsScan.ls < prev    next >
Encoding:
Text File  |  2001-06-27  |  930 b   |  24 lines
  1. global dimensionsDone, numDone, currentField
  2.  
  3. on exitFrame me
  4.   if dimensionsDone = 1 then
  5.     go(marker("DimensionsEnd"))
  6.   else
  7.     currentField = "field" & numDone + 1
  8.     member(currentField).text = member(currentField).text & "D"
  9.     member(currentField).text = member(currentField).text & "I"
  10.     member(currentField).text = member(currentField).text & "M"
  11.     member(currentField).text = member(currentField).text & "E"
  12.     member(currentField).text = member(currentField).text & "N"
  13.     member(currentField).text = member(currentField).text & "S"
  14.     member(currentField).text = member(currentField).text & "I"
  15.     member(currentField).text = member(currentField).text & "O"
  16.     member(currentField).text = member(currentField).text & "N"
  17.     member(currentField).text = member(currentField).text & "S"
  18.     sprite(numDone + 31).visible = 1
  19.     dimensionsDone = 1
  20.     numDone = numDone + 1
  21.   end if
  22.   unloadMember(704)
  23. end
  24.